home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 8 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  608b  |  24 lines
  1. 1 rem turtle-demo: 'unordnung'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 20 input"rechteckgroesse   20[157][157][157][157]";h:dx=320/h-1:dy=200/h-1
  6. 30 input"max. verdrehung   45[157][157][157][157]";m
  7. 40 input"max. translation  15[157][157][157][157]";t
  8. 90 !init:!graphics
  9. 100 fory=.tody-1
  10. 110 forx=.todx-1
  11. 120 !pen0:!movex*h+t*rnd(ti)*x/dx,y*h+t*rnd(ti)*x/dx:!angle270
  12. 130 !turnrm*rnd(ti)*x/dx
  13. 140 !pen1
  14. 150 forq=1to4
  15. 160 !walkh-1:!turnr90:next
  16. 200 next
  17. 210 next
  18. 300 !window217
  19. 310 print" es ist schon erstaunlich,  was man mit
  20. 320 [153]" hilfe dieser einfachen  turtle-befehle
  21. 330 print" praktisch  ohne  arbeitsaufwand  alles
  22. 340 [153]" machen kann - ganz leicht!
  23. 350 !finish
  24.